#tag Window
Begin Window Window1
   BackColor       =   &hFFFFFF
   Backdrop        =   ""
   CloseButton     =   True
   Composite       =   False
   Frame           =   0
   FullScreen      =   False
   HasBackColor    =   False
   Height          =   3.35e+2
   ImplicitInstance=   True
   LiveResize      =   True
   MacProcID       =   0
   MaxHeight       =   32000
   MaximizeButton  =   False
   MaxWidth        =   32000
   MenuBar         =   1672734719
   MenuBarVisible  =   True
   MinHeight       =   64
   MinimizeButton  =   True
   MinWidth        =   64
   Placement       =   0
   Resizeable      =   True
   Title           =   "Untitled"
   Visible         =   True
   Width           =   6.26e+2
   Begin Listbox Listbox1
      AutoDeactivate  =   True
      AutoHideScrollbars=   True
      Bold            =   ""
      Border          =   True
      ColumnCount     =   1
      ColumnsResizable=   ""
      ColumnWidths    =   ""
      DataField       =   ""
      DataSource      =   ""
      DefaultRowHeight=   -1
      Enabled         =   True
      EnableDrag      =   ""
      EnableDragReorder=   ""
      GridLinesHorizontal=   0
      GridLinesVertical=   0
      HasHeading      =   True
      HeadingIndex    =   -1
      Height          =   174
      HelpTag         =   ""
      Hierarchical    =   ""
      Index           =   -2147483648
      InitialParent   =   ""
      InitialValue    =   "zero\nOne\ntwo\nthree\nfour\nfive"
      Italic          =   ""
      Left            =   20
      LockBottom      =   ""
      LockedInPosition=   False
      LockLeft        =   ""
      LockRight       =   ""
      LockTop         =   ""
      RequiresSelection=   ""
      Scope           =   0
      ScrollbarHorizontal=   ""
      ScrollBarVertical=   True
      SelectionType   =   0
      TabIndex        =   0
      TabPanelIndex   =   0
      TabStop         =   True
      TextFont        =   "System"
      TextSize        =   0
      Top             =   20
      Underline       =   ""
      UseFocusRing    =   True
      Visible         =   True
      Width           =   241
      _ScrollWidth    =   -1
   End
   Begin PushButton PushButton1
      AutoDeactivate  =   True
      Bold            =   ""
      Cancel          =   ""
      Caption         =   "Start Logging"
      Default         =   ""
      Enabled         =   True
      Height          =   37
      HelpTag         =   ""
      Index           =   -2147483648
      InitialParent   =   ""
      Italic          =   ""
      Left            =   20
      LockBottom      =   ""
      LockedInPosition=   False
      LockLeft        =   ""
      LockRight       =   ""
      LockTop         =   ""
      Scope           =   0
      TabIndex        =   1
      TabPanelIndex   =   0
      TabStop         =   True
      TextFont        =   "System"
      TextSize        =   0
      Top             =   278
      Underline       =   ""
      Visible         =   True
      Width           =   112
   End
   Begin CheckBox chkWinEvents
      AutoDeactivate  =   True
      Bold            =   ""
      Caption         =   "Log Window Events"
      DataField       =   ""
      DataSource      =   ""
      Enabled         =   True
      Height          =   20
      HelpTag         =   ""
      Index           =   -2147483648
      InitialParent   =   ""
      Italic          =   ""
      Left            =   20
      LockBottom      =   ""
      LockedInPosition=   False
      LockLeft        =   ""
      LockRight       =   ""
      LockTop         =   ""
      Scope           =   0
      State           =   0
      TabIndex        =   2
      TabPanelIndex   =   0
      TabStop         =   True
      TextFont        =   "System"
      TextSize        =   0
      Top             =   219
      Underline       =   ""
      Value           =   False
      Visible         =   True
      Width           =   197
   End
   Begin PushButton btnTest
      AutoDeactivate  =   True
      Bold            =   ""
      Cancel          =   ""
      Caption         =   "Test"
      Default         =   ""
      Enabled         =   True
      Height          =   28
      HelpTag         =   ""
      Index           =   -2147483648
      InitialParent   =   ""
      Italic          =   ""
      Left            =   181
      LockBottom      =   ""
      LockedInPosition=   False
      LockLeft        =   ""
      LockRight       =   ""
      LockTop         =   ""
      Scope           =   0
      TabIndex        =   3
      TabPanelIndex   =   0
      TabStop         =   True
      TextFont        =   "System"
      TextSize        =   0
      Top             =   283
      Underline       =   ""
      Visible         =   True
      Width           =   80
   End
   Begin TextField TextField1
      AcceptTabs      =   ""
      Alignment       =   0
      AutoDeactivate  =   True
      BackColor       =   &hFFFFFF
      Bold            =   ""
      Border          =   True
      CueText         =   ""
      DataField       =   ""
      DataSource      =   ""
      Enabled         =   True
      Format          =   ""
      Height          =   22
      HelpTag         =   ""
      Index           =   -2147483648
      InitialParent   =   ""
      Italic          =   ""
      Left            =   273
      LimitText       =   0
      LockBottom      =   ""
      LockedInPosition=   False
      LockLeft        =   ""
      LockRight       =   ""
      LockTop         =   ""
      Mask            =   ""
      Password        =   ""
      ReadOnly        =   ""
      Scope           =   0
      TabIndex        =   4
      TabPanelIndex   =   0
      TabStop         =   True
      Text            =   ""
      TextColor       =   &h000000
      TextFont        =   "System"
      TextSize        =   0
      Top             =   20
      Underline       =   ""
      UseFocusRing    =   True
      Visible         =   True
      Width           =   333
   End
   Begin TextArea TextArea1
      AcceptTabs      =   ""
      Alignment       =   0
      AutoDeactivate  =   True
      BackColor       =   &hFFFFFF
      Bold            =   ""
      Border          =   True
      DataField       =   ""
      DataSource      =   ""
      Enabled         =   True
      Format          =   ""
      Height          =   137
      HelpTag         =   ""
      HideSelection   =   True
      Index           =   -2147483648
      InitialParent   =   ""
      Italic          =   ""
      Left            =   269
      LimitText       =   0
      LockBottom      =   ""
      LockedInPosition=   False
      LockLeft        =   ""
      LockRight       =   ""
      LockTop         =   ""
      Mask            =   ""
      Multiline       =   True
      ReadOnly        =   ""
      Scope           =   0
      ScrollbarHorizontal=   ""
      ScrollbarVertical=   True
      Styled          =   True
      TabIndex        =   5
      TabPanelIndex   =   0
      TabStop         =   True
      Text            =   ""
      TextColor       =   &h000000
      TextFont        =   "System"
      TextSize        =   0
      Top             =   57
      Underline       =   ""
      UseFocusRing    =   True
      Visible         =   True
      Width           =   337
   End
End
#tag EndWindow

#tag WindowCode
	#tag Event
		Sub Activate()
		  if sjgLogging.reportWindowEvents then sjgLogging.Report CurrentMethodName
		End Sub
	#tag EndEvent

	#tag Event
		Function CancelClose(appQuitting as Boolean) As Boolean
		  if sjgLogging.reportWindowEvents then sjgLogging.Report CurrentMethodName
		End Function
	#tag EndEvent

	#tag Event
		Sub Close()
		  if sjgLogging.reportWindowEvents then sjgLogging.Report CurrentMethodName
		End Sub
	#tag EndEvent

	#tag Event
		Function ConstructContextualMenu(base as MenuItem, x as Integer, y as Integer) As Boolean
		  if sjgLogging.reportWindowEvents then sjgLogging.Report CurrentMethodName
		End Function
	#tag EndEvent

	#tag Event
		Function ContextualMenuAction(hitItem as MenuItem) As Boolean
		  if sjgLogging.reportWindowEvents then sjgLogging.Report CurrentMethodName
		End Function
	#tag EndEvent

	#tag Event
		Sub Deactivate()
		  if sjgLogging.reportWindowEvents then sjgLogging.Report CurrentMethodName
		End Sub
	#tag EndEvent

	#tag Event
		Function DragEnter(obj As DragItem, action As Integer) As Boolean
		  if sjgLogging.reportWindowEvents then sjgLogging.Report CurrentMethodName
		End Function
	#tag EndEvent

	#tag Event
		Sub DragExit(obj As DragItem, action As Integer)
		  if sjgLogging.reportWindowEvents then sjgLogging.Report CurrentMethodName
		End Sub
	#tag EndEvent

	#tag Event
		Function DragOver(x As Integer, y As Integer, obj As DragItem, action As Integer) As Boolean
		  if sjgLogging.reportWindowEvents then sjgLogging.Report CurrentMethodName
		End Function
	#tag EndEvent

	#tag Event
		Sub DropObject(obj As DragItem, action As Integer)
		  if sjgLogging.reportWindowEvents then sjgLogging.Report CurrentMethodName
		End Sub
	#tag EndEvent

	#tag Event
		Sub EnableMenuItems()
		  if sjgLogging.reportWindowEvents then sjgLogging.Report CurrentMethodName
		End Sub
	#tag EndEvent

	#tag Event
		Function KeyDown(Key As String) As Boolean
		  if sjgLogging.reportWindowEvents then sjgLogging.Report CurrentMethodName, Key
		End Function
	#tag EndEvent

	#tag Event
		Sub KeyUp(Key As String)
		  if sjgLogging.reportWindowEvents then sjgLogging.Report CurrentMethodName, key
		End Sub
	#tag EndEvent

	#tag Event
		Sub Maximize()
		  if sjgLogging.reportWindowEvents then sjgLogging.Report CurrentMethodName
		End Sub
	#tag EndEvent

	#tag Event
		Sub Minimize()
		  if sjgLogging.reportWindowEvents then sjgLogging.Report CurrentMethodName
		End Sub
	#tag EndEvent

	#tag Event
		Function MouseDown(X As Integer, Y As Integer) As Boolean
		  if sjgLogging.reportWindowEvents then sjgLogging.Report CurrentMethodName
		End Function
	#tag EndEvent

	#tag Event
		Sub MouseDrag(X As Integer, Y As Integer)
		  if sjgLogging.reportWindowEvents then sjgLogging.Report CurrentMethodName
		End Sub
	#tag EndEvent

	#tag Event
		Sub MouseEnter()
		  if sjgLogging.reportWindowEvents then sjgLogging.Report CurrentMethodName
		End Sub
	#tag EndEvent

	#tag Event
		Sub MouseExit()
		  if sjgLogging.reportWindowEvents then sjgLogging.Report CurrentMethodName
		End Sub
	#tag EndEvent

	#tag Event
		Sub MouseMove(X As Integer, Y As Integer)
		  if sjgLogging.reportWindowEvents then sjgLogging.Report CurrentMethodName
		End Sub
	#tag EndEvent

	#tag Event
		Sub MouseUp(X As Integer, Y As Integer)
		  if sjgLogging.reportWindowEvents then sjgLogging.Report CurrentMethodName
		End Sub
	#tag EndEvent

	#tag Event
		Function MouseWheel(X As Integer, Y As Integer, DeltaX as Integer, DeltaY as Integer) As Boolean
		  if sjgLogging.reportWindowEvents then sjgLogging.Report CurrentMethodName
		End Function
	#tag EndEvent

	#tag Event
		Sub Moved()
		  if sjgLogging.reportWindowEvents then sjgLogging.Report CurrentMethodName
		End Sub
	#tag EndEvent

	#tag Event
		Sub Open()
		  if sjgLogging.reportWindowEvents then sjgLogging.Report CurrentMethodName
		End Sub
	#tag EndEvent

	#tag Event
		Sub Paint(g As Graphics)
		  if sjgLogging.reportWindowEvents then sjgLogging.Report CurrentMethodName
		End Sub
	#tag EndEvent

	#tag Event
		Sub Resized()
		  if sjgLogging.reportWindowEvents then sjgLogging.Report CurrentMethodName
		End Sub
	#tag EndEvent

	#tag Event
		Sub Resizing()
		  if sjgLogging.reportWindowEvents then sjgLogging.Report CurrentMethodName
		End Sub
	#tag EndEvent

	#tag Event
		Sub Restore()
		  if sjgLogging.reportWindowEvents then sjgLogging.Report CurrentMethodName
		End Sub
	#tag EndEvent


#tag EndWindowCode

#tag Events Listbox1
	#tag Event
		Sub CellAction(row As Integer, column As Integer)
		  sjgLogging.Report CurrentMethodName, "row=" + format( row, "0" ) + " column=" + format( column, "0" )
		End Sub
	#tag EndEvent
	#tag Event
		Function CellBackgroundPaint(g As Graphics, row As Integer, column As Integer) As Boolean
		  sjgLogging.Report CurrentMethodName, "row=" + format( row, "0" ) + " column=" + format( column, "0" )
		End Function
	#tag EndEvent
	#tag Event
		Function CellClick(row as Integer, column as Integer, x as Integer, y as Integer) As Boolean
		  sjgLogging.Report CurrentMethodName, "row=" + format( row, "0" ) + " column=" + format( column, "0" ) + " x=" + format( x, "0" ) + " y=" + format( y, "0" )
		End Function
	#tag EndEvent
	#tag Event
		Sub CellGotFocus(row as Integer, column as Integer)
		  sjgLogging.Report CurrentMethodName, "row=" + format( row, "0" ) + " column=" + format( column, "0" )
		End Sub
	#tag EndEvent
	#tag Event
		Function CellKeyDown(row as Integer, column as Integer, key as String) As Boolean
		  sjgLogging.Report CurrentMethodName, "row=" + format( row, "0" ) + " column=" + format( column, "0" ) + "key=" + key
		End Function
	#tag EndEvent
	#tag Event
		Sub CellLostFocus(row as Integer, column as Integer)
		  sjgLogging.Report CurrentMethodName, "row=" + format( row, "0" ) + " column=" + format( column, "0" )
		End Sub
	#tag EndEvent
	#tag Event
		Sub CellTextChange(row as Integer, column as Integer)
		  sjgLogging.Report CurrentMethodName, "row=" + format( row, "0" ) + " column=" + format( column, "0" )
		End Sub
	#tag EndEvent
	#tag Event
		Function CellTextPaint(g As Graphics, row As Integer, column As Integer, x as Integer, y as Integer) As Boolean
		  sjgLogging.Report CurrentMethodName, "row=" + format( row, "0" ) + " column=" + format( column, "0" ) + " x=" + format( x, "0" ) + " y=" + format( y, "0" )
		End Function
	#tag EndEvent
	#tag Event
		Sub Change()
		  sjgLogging.Report CurrentMethodName
		End Sub
	#tag EndEvent
	#tag Event
		Sub Close()
		  sjgLogging.Report CurrentMethodName
		End Sub
	#tag EndEvent
	#tag Event
		Sub CollapseRow(row As Integer)
		  sjgLogging.Report CurrentMethodName, "row=" + format( row, "0" )
		End Sub
	#tag EndEvent
	#tag Event
		Function ContextualMenuAction(hitItem as MenuItem) As Boolean
		  sjgLogging.Report CurrentMethodName
		End Function
	#tag EndEvent
	#tag Event
		Sub DoubleClick()
		  sjgLogging.Report CurrentMethodName
		End Sub
	#tag EndEvent
	#tag Event
		Function DragEnter(obj As DragItem, action As Integer) As Boolean
		  sjgLogging.Report CurrentMethodName, "action=" + format( action, "0" )
		End Function
	#tag EndEvent
	#tag Event
		Sub DragExit(obj As DragItem, action As Integer)
		  sjgLogging.Report CurrentMethodName, "action=" + format( action, "0" )
		End Sub
	#tag EndEvent
	#tag Event
		Function DragReorderRows(newPosition as Integer, parentRow as Integer) As Boolean
		  sjgLogging.Report CurrentMethodName, "newPosition=" + format( newPosition, "0" ) + "parentRow=" + format( parentRow, "0" )
		End Function
	#tag EndEvent
	#tag Event
		Function DragRow(drag As DragItem, row As Integer) As Boolean
		  sjgLogging.Report CurrentMethodName, "row=" + Format( row, "0" )
		End Function
	#tag EndEvent
	#tag Event
		Sub DropObject(obj As DragItem, action As Integer)
		  sjgLogging.Report CurrentMethodName, "action=" + format( action, "0" )
		End Sub
	#tag EndEvent
	#tag Event
		Sub EnableMenuItems()
		  sjgLogging.Report CurrentMethodName
		End Sub
	#tag EndEvent
	#tag Event
		Sub ExpandRow(row As Integer)
		  sjgLogging.Report CurrentMethodName, "row=" + format( row, "0" )
		End Sub
	#tag EndEvent
	#tag Event
		Sub GotFocus()
		  sjgLogging.Report CurrentMethodName
		End Sub
	#tag EndEvent
	#tag Event
		Function HeaderPressed(column as Integer) As Boolean
		  sjgLogging.Report CurrentMethodName, "column=" + format( column, "0" )
		End Function
	#tag EndEvent
	#tag Event
		Sub KeyUp(Key As String)
		  sjgLogging.Report CurrentMethodName, "key=" + key
		End Sub
	#tag EndEvent
	#tag Event
		Sub LostFocus()
		  sjgLogging.Report CurrentMethodName
		End Sub
	#tag EndEvent
	#tag Event
		Function MouseDown(x As Integer, y As Integer) As Boolean
		  sjgLogging.Report CurrentMethodName , "x=" + format( x, "0" ) + " y=" + format( y, "0" )
		End Function
	#tag EndEvent
	#tag Event
		Sub MouseDrag(x As Integer, y As Integer)
		  sjgLogging.Report CurrentMethodName , "x=" + format( x, "0" ) + " y=" + format( y, "0" )
		End Sub
	#tag EndEvent
	#tag Event
		Sub MouseEnter()
		  sjgLogging.Report CurrentMethodName
		End Sub
	#tag EndEvent
	#tag Event
		Sub MouseExit()
		  sjgLogging.Report CurrentMethodName
		End Sub
	#tag EndEvent
	#tag Event
		Sub MouseMove(X As Integer, Y As Integer)
		  ' sjgLogging.Report CurrentMethodName , "x=" + format( x, "0" ) + " y=" + format( y, "0" )
		End Sub
	#tag EndEvent
	#tag Event
		Sub MouseUp(x As Integer, y As Integer)
		  sjgLogging.Report CurrentMethodName , "x=" + format( x, "0" ) + " y=" + format( y, "0" )
		End Sub
	#tag EndEvent
	#tag Event
		Sub Open()
		  sjgLogging.Report CurrentMethodName
		End Sub
	#tag EndEvent
	#tag Event
		Function SortColumn(column As Integer) As Boolean
		  sjgLogging.Report CurrentMethodName, "column=" + format( column, "0" )
		End Function
	#tag EndEvent
	#tag Event
		Function CompareRows(row1 as Integer, row2 as Integer, column as Integer, ByRef result as Integer) As Boolean
		  sjgLogging.Report CurrentMethodName, "row1=" + format( row1, "0" ) + " row2=" + format( row2, "0" ) + " column=" + format( column, "0" )
		End Function
	#tag EndEvent
	#tag Event
		Function KeyDown(Key As String) As Boolean
		  sjgLogging.Report CurrentMethodName, "key=" + key
		End Function
	#tag EndEvent
	#tag Event
		Function ConstructContextualMenu(base as MenuItem, x as Integer, y as Integer) As Boolean
		  sjgLogging.Report CurrentMethodName , "x=" + format( x, "0" ) + " y=" + format( y, "0" )
		End Function
	#tag EndEvent
	#tag Event
		Function DragOver(x As Integer, y As Integer, obj As DragItem, action As Integer) As Boolean
		  sjgLogging.Report CurrentMethodName, "x=" + format( x, "0" ) + " y=" + format( y, "0" ) + "action=" + format( action, "0" )
		End Function
	#tag EndEvent
	#tag Event
		Function MouseWheel(X As Integer, Y As Integer, deltaX as Integer, deltaY as Integer) As Boolean
		  sjgLogging.Report CurrentMethodName , "x=" + format( x, "0" ) + " y=" + format( y, "0" ) + "deltaX=" + format( deltaX, "0" ) + " deltaY=" + format( deltaY, "0" )
		End Function
	#tag EndEvent
#tag EndEvents
#tag Events PushButton1
	#tag Event
		Sub Action()
		  sjgLogging.Report me.Caption
		  sjgLogging.Active = not sjgLogging.Active
		  sjgLogging.Report me.Caption
		  
		  if sjgLogging.Active then
		    me.Caption = "Stop Logging"
		  else
		    me.Caption = "Start Logging"
		  end if
		End Sub
	#tag EndEvent
#tag EndEvents
#tag Events chkWinEvents
	#tag Event
		Sub Action()
		  sjgLogging.reportWindowEvents = me.Value
		End Sub
	#tag EndEvent
#tag EndEvents
#tag Events btnTest
	#tag Event
		Sub Action()
		  dim d as new Date
		  Listbox1.AddRow d.LongTime
		  sjgLogging.Report "---Listbox1.AddRow " + d.LongTime
		  
		  Listbox1.EditCell(2,0)
		  sjgLogging.Report "---Listbox1.EditCell(2,0)"
		End Sub
	#tag EndEvent
#tag EndEvents
#tag Events TextField1
	#tag Event
		Sub Close()
		  sjgLogging.Report CurrentMethodName
		End Sub
	#tag EndEvent
	#tag Event
		Function KeyDown(Key As String) As Boolean
		  sjgLogging.Report CurrentMethodName, "key=" + key
		End Function
	#tag EndEvent
	#tag Event
		Sub KeyUp(Key As String)
		  sjgLogging.Report CurrentMethodName, "key=" + key
		End Sub
	#tag EndEvent
	#tag Event
		Function ConstructContextualMenu(base as MenuItem, x as Integer, y as Integer) As Boolean
		  sjgLogging.Report CurrentMethodName , "x=" + format( x, "0" ) + " y=" + format( y, "0" )
		End Function
	#tag EndEvent
	#tag Event
		Function ContextualMenuAction(hitItem as MenuItem) As Boolean
		  sjgLogging.Report CurrentMethodName 
		End Function
	#tag EndEvent
	#tag Event
		Function DragEnter(obj As DragItem, action As Integer) As Boolean
		  sjgLogging.Report CurrentMethodName , "action=" + format( action, "0" )
		End Function
	#tag EndEvent
	#tag Event
		Sub DragExit(obj As DragItem, action As Integer)
		  sjgLogging.Report CurrentMethodName , "action=" + format( action, "0" )
		End Sub
	#tag EndEvent
	#tag Event
		Function DragOver(x As Integer, y As Integer, obj As DragItem, action As Integer) As Boolean
		  sjgLogging.Report CurrentMethodName, "x=" + format( x, "0" ) + " y=" + format( y, "0" ) + "action=" + format( action, "0" )
		End Function
	#tag EndEvent
	#tag Event
		Sub DropObject(obj As DragItem, action As Integer)
		  sjgLogging.Report CurrentMethodName, "action=" + format( action, "0" )
		End Sub
	#tag EndEvent
	#tag Event
		Sub EnableMenuItems()
		  sjgLogging.Report CurrentMethodName
		End Sub
	#tag EndEvent
	#tag Event
		Sub GotFocus()
		  sjgLogging.Report CurrentMethodName
		End Sub
	#tag EndEvent
	#tag Event
		Sub LostFocus()
		  sjgLogging.Report CurrentMethodName
		End Sub
	#tag EndEvent
	#tag Event
		Function MouseDown(X As Integer, Y As Integer) As Boolean
		  sjgLogging.Report CurrentMethodName, "x=" + format( x, "0" ) + " y=" + format( y, "0" ) 
		End Function
	#tag EndEvent
	#tag Event
		Sub MouseEnter()
		  sjgLogging.Report CurrentMethodName
		End Sub
	#tag EndEvent
	#tag Event
		Sub MouseExit()
		  sjgLogging.Report CurrentMethodName
		End Sub
	#tag EndEvent
	#tag Event
		Sub MouseMove(X As Integer, Y As Integer)
		  'sjgLogging.Report CurrentMethodName, "x=" + format( x, "0" ) + " y=" + format( y, "0" )
		End Sub
	#tag EndEvent
	#tag Event
		Sub MouseUp(X As Integer, Y As Integer)
		  sjgLogging.Report CurrentMethodName, "x=" + format( x, "0" ) + " y=" + format( y, "0" )
		End Sub
	#tag EndEvent
	#tag Event
		Function MouseWheel(X As Integer, Y As Integer, deltaX as Integer, deltaY as Integer) As Boolean
		  sjgLogging.Report CurrentMethodName , "x=" + format( x, "0" ) + " y=" + format( y, "0" ) + "deltaX=" + format( deltaX, "0" ) + " deltaY=" + format( deltaY, "0" )
		End Function
	#tag EndEvent
	#tag Event
		Sub Open()
		  sjgLogging.Report CurrentMethodName 
		End Sub
	#tag EndEvent
	#tag Event
		Sub SelChange()
		  sjgLogging.Report CurrentMethodName 
		End Sub
	#tag EndEvent
	#tag Event
		Sub TextChange()
		  sjgLogging.Report CurrentMethodName
		End Sub
	#tag EndEvent
	#tag Event
		Sub ValidationError(InvalidText As String, StartPosition As Integer)
		  sjgLogging.Report CurrentMethodName , "StartPosition=" + format( StartPosition, "0" ) + "InvalidText=" + InvalidText
		End Sub
	#tag EndEvent
#tag EndEvents
#tag Events TextArea1
	#tag Event
		Sub Close()
		   sjgLogging.Report CurrentMethodName
		End Sub
	#tag EndEvent
	#tag Event
		Function ConstructContextualMenu(base as MenuItem, x as Integer, y as Integer) As Boolean
		   sjgLogging.Report CurrentMethodName
		End Function
	#tag EndEvent
	#tag Event
		Function ContextualMenuAction(hitItem as MenuItem) As Boolean
		   sjgLogging.Report CurrentMethodName
		End Function
	#tag EndEvent
	#tag Event
		Function DragEnter(obj As DragItem, action As Integer) As Boolean
		   sjgLogging.Report CurrentMethodName
		End Function
	#tag EndEvent
	#tag Event
		Sub DragExit(obj As DragItem, action As Integer)
		   sjgLogging.Report CurrentMethodName
		End Sub
	#tag EndEvent
	#tag Event
		Function DragOver(x As Integer, y As Integer, obj As DragItem, action As Integer) As Boolean
		   sjgLogging.Report CurrentMethodName
		End Function
	#tag EndEvent
	#tag Event
		Sub DropObject(obj As DragItem, action As Integer)
		   sjgLogging.Report CurrentMethodName
		End Sub
	#tag EndEvent
	#tag Event
		Sub EnableMenuItems()
		   sjgLogging.Report CurrentMethodName
		End Sub
	#tag EndEvent
	#tag Event
		Sub GotFocus()
		   sjgLogging.Report CurrentMethodName
		End Sub
	#tag EndEvent
	#tag Event
		Function KeyDown(Key As String) As Boolean
		   sjgLogging.Report CurrentMethodName
		End Function
	#tag EndEvent
	#tag Event
		Sub KeyUp(Key As String)
		   sjgLogging.Report CurrentMethodName
		End Sub
	#tag EndEvent
	#tag Event
		Sub LostFocus()
		   sjgLogging.Report CurrentMethodName
		End Sub
	#tag EndEvent
	#tag Event
		Function MouseDown(X As Integer, Y As Integer) As Boolean
		   sjgLogging.Report CurrentMethodName
		End Function
	#tag EndEvent
	#tag Event
		Sub MouseEnter()
		   sjgLogging.Report CurrentMethodName
		End Sub
	#tag EndEvent
	#tag Event
		Sub MouseExit()
		   sjgLogging.Report CurrentMethodName
		End Sub
	#tag EndEvent
	#tag Event
		Sub MouseMove(X As Integer, Y As Integer)
		  'sjgLogging.Report CurrentMethodName
		End Sub
	#tag EndEvent
	#tag Event
		Sub MouseUp(X As Integer, Y As Integer)
		   sjgLogging.Report CurrentMethodName
		End Sub
	#tag EndEvent
	#tag Event
		Function MouseWheel(X As Integer, Y As Integer, deltaX as Integer, deltaY as Integer) As Boolean
		   sjgLogging.Report CurrentMethodName
		End Function
	#tag EndEvent
	#tag Event
		Sub Open()
		   sjgLogging.Report CurrentMethodName
		End Sub
	#tag EndEvent
	#tag Event
		Sub SelChange()
		   sjgLogging.Report CurrentMethodName
		End Sub
	#tag EndEvent
	#tag Event
		Sub TextChange()
		   sjgLogging.Report CurrentMethodName
		End Sub
	#tag EndEvent
	#tag Event
		Sub ValidationError(InvalidText As String, StartPosition As Integer)
		   sjgLogging.Report CurrentMethodName
		End Sub
	#tag EndEvent
#tag EndEvents
